home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 88 / 64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64 / sdz nlq (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  521b  |  16 lines
  1. 10 open1,4
  2. 20 print#1,chr$(27);chr$(120);"1";:rem nlq ein
  3. 30 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);:rem rom-zeichensatz ins ram
  4. 40 print#1,chr$(27);"&";chr$(0);"!!";:rem neue zeichen von a bis a
  5. 50 for i =1 to 47
  6. 60 :  read x
  7. 70 :   print#1,chr$(x);
  8. 80 next i
  9. 90 print#1,chr$(27);"%1";:rem ram-zeichensatz einschalten
  10. 100 print#1,"statt eines ausrufe-zeichens"
  11. 110 print#1,"erhaelt man 1/2 : !!! !!!"
  12. 120 close1
  13. 200 data 128:rem attribut: keine unterlaenge
  14. 210 data 17,64,18,224,20,0,24,0,16,9,32,1,66,1,132,9,0,0,0,0,0,0,0:rem 1.
  15. 220 data 0,2,128,100,0,8,0,16,0,32,16,66,16,132,16,8,0,0,0,0,0,0,0:rem 2.
  16.